home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / PROGRAMMING / MeSsaGe_UTILS.ZIP / MsgDecode (.txt) next >
RISC OS BBC BASIC V Source  |  1997-12-26  |  1KB  |  54 lines
  1.   __   _
  2.   |_) /|  Copyright Richard Atterer
  3.   | \/
  4. |  written on 22-07-1997 - Freeware
  5.  ArcWeb Message file: Expand dictionary entries & all tags below the last
  6.  'dict' tag in the file
  7.  get$="<ArcWeb$Dir>.Messages"
  8. put$="RAM:MsgExpand"
  9. dic$="dict"
  10. $+" ("+
  11. +")":
  12. maxfile%=9999:maxdic%=199
  13. m$(maxfile%),dic$(maxdic%),dicline%(maxdic%)
  14. get$:lines%=0:dic%=0
  15.   a$=
  16. #g%:m$(lines%)=a$
  17. dic$)=dic$ n%=
  18. dic$+1)):dic$(n%)=
  19. a$,":")+1):dicline%(n%)=lines%:lastdicline%=lines%
  20.   lines%+=1
  21. dicentries%=0
  22. maxdic%
  23. dic$(i%)<>"" a$=
  24. expand(dic$(i%)):dic$(i%)=a$:m$(dicline%(i%))=dic$+
  25. i%+":"+a$:dicentries%=i%
  26. put$:
  27. "SetType "+put$+" FFF"
  28. lastdicline%
  29. #p%,m$(i%)
  30. i%=lastdicline%+1
  31. lines%-1
  32.   n%=
  33. m$(i%),":")
  34. m$(i%),1)<>"#" 
  35. $/    
  36. m$(i%),n%)+
  37. expand(
  38. m$(i%),n%+1))
  39. %        
  40. #p%,m$(i%)
  41. expand(b$)
  42. a$,a%,b%,n%:a%=1:b%=1
  43. b$,"%",b%)
  44. "0123456789",
  45. b$,b%+1,1))>0 
  46.     n%=
  47. b$,b%+1))
  48. 5-    a$=a$+
  49. b$,a%,b%-a%)+
  50. expand(dic$(n%))
  51.     a%=b%+
  52. n%)+1:b%=a%
  53. b$,a%)
  54.